13215 GOSUB16000 13216 IF LEFT$<Y5$.2)="AS"THENY=(INT(10*VAL(MID$(Y5$.3.9))))/10:}RETURN 13218 GOSUB14950 13250 Y1$="RX-SENS. F.S/N":REM*******66 13251 Y7=Y:Y=.6*X(8):GOSUB10550 13252 Y5$="BB“+MID$(STR$(Y7).2.8>+“.":GOSUB16010:GOSUB16000 13253 IFLEFT$(Y5$.2)="BB"THEN13305 13254 GOTO14950 13300 Y1$="RX-SENS.F.SINAD":REM******67 13301 Y7=Y:Y=.6*X(8=:GOSUB10550 13302 IFYS$<>“A"THEN13305 13303 IFYE=1THENY5$=“BO4.":GOSUB16010 13304 IFYE=0THEHY5$=“BO3.":GOSUB16010 13305 YE=0 13312 Y5$="AS"+MID$(STR$(Y7).2.8)+".":GOSUB16010:GOSUB16000 13313 IF LEFT$(Y5$.2)="AS"THEN13315 13314 GOTO14950 13315 Y=UAL<LEFT%<3TR$(223*18*(<UAL(HID$(Y55.3.BJ)/28)+3)).5)>LRETURN 13358 YL$=“GUIETING*SEH3."ZREHI***K¥I6B 13351 Y=8:GOSUB18458:GOSUB11358IY2=Y/181Y=1IGGSUB18458IY=8!GD3UB18558:Y1 13352 Y=Y1rGOSUB184B8IGD3UH1135EIIFA33((Y—Y2)/Y2)<.2THEN13354 13353 Y1=Y1*(1+Y/Y2)/2}EDTD13352 13354 Y=(INT(188*Y1bl/188IRHTURN 13488 Y1$=“RX-EANDHIDTH éDE":RENX**X*69 13481 ‘rC=8: ‘rD=B: Y4=¤. 8864: `1“7=8. 2: Y=B: E;USUB1B558: Y=B: GD!51JE=1B45B: ‘¤'=1B: GIIISIJE 13482 Y8BB=T/3.16:Y=11GOSUB18458 13483 Y=Y7:3G3UB184881Y=4IGUSUH11B58 13484 IF mB5(Y~Y3)<.2*YBTHEN YB=Y:GDTU13486 13485 Y7=Y?#l1+Y/YS)/2IGBTD13483 . 13486 T=Y7$2!GOSUB3UB18488LY¤4:GOSUB11H58:YE=Y:GOSUB13418 13487 Y5=Y6:Y4=—Y4:GOSUB13418 13483 Y=X(1}:GOSUB18358 13489 Y¤(INT((Y5~Y6>*18888>J/18:Y1=(IHT((((Y5+Y6)/2)»X(1))X18888))/18H% 13418 Y6=X(1):Y?=1 13411 Y6¤Y6+Y4/Y9:IFY6¤YCTHEN13417 13412 YC=YDIYD=YéIY¤Y6:GD3UB18358IY¤4:GOSUB11B58 13413 IF hHS<Y-YB}<.1*Y8THENRETURN 13414 IFQBS(YB~Y)>9SS(Y—YB)THENY?=Y9/2 13415 IFAB5(Y9>=64THENY9=32 13416 Y9¤SGN(YB~Y)KnE3tY9¥2):YB=Y:GOTO13411 13417 Y6=(Y6+YD)/2IRETURN 13453 Ylam"- ···-- ——-wm-~~-~~~":REM**X*#*$78 13451 RETURN 13588 Y1$=“HUD.ADC.HHNDHIDTH"lREM***#?1 13581 Y=12:GOSUB133881Y=2*YIGOSUB1848BIY1=é8:YH=48 13582 Y=Y1IEGSU313288:YK=RB5(Y~12):IFYK<7THENYH¤B8£IFYK<1.5THEN13584 13583 Y1=T1*18*<(Y-12)/YH)IGOTO13582 13584 Y=68IGOSUB3132B81Y=(INT(Y1*X<B))D/58LRETURN 13553 Y1$¤"5GUELDH ":REH£K***¥**¥**¥¥72 13551 Y1=.22 13552 Y1=Y1*1.5:Y¢Y1iGOSUB18488;GOSUB11358:IFY<58THEN13552 13553 Y=~1:GOSUB18588:GOSUB18588:Y1=Y1*.97?IGOSUB11358?IFY}58THEN135$3 13554 Y2=Y1:Y1={INT(Y1*188?J/188 13555 Y2=Y2/.977:Y=Y2:GOSUB184B8:GOSUB11358:IFY<58THEN13555 13556 Y2¤(INT(Y2K188))/188:Y=(INT(28BILUG(Y2/Y1>/LUG<18)>>/IBLRETURN 13688 Y1$¤"~—~—~—-—-———--“:REH$****##?3 13681 3UTU13558 13658 Y1$¤"~-———---------"IREH***##$#74 13651 RETURN L3788 Y1$="~—·——~~~~~· ···-·· ~~-~":REM*¥X****75 13781 RETURN 13758 Y1$¤"RX.HUD.FREHU.RE3P."I HHKXX76 13?;·»;·. =i->¤.1€s¤.=l=·! |i·‘·‘· '-‘·F1QlJB1 8758 13752 M - - ·<} : r:rJsLlE¤:LB558: GOSUB1135B: Y(B1=Y 13753 FDRYB¤1TDY9:Y=X(28+YB)IGOSUB1B75B:GDGUE11358 13?54 Y<Y3)=(INT(28B*LDD(Y/Y(8JJ/LUG£18)))/18:NEXTYS 13755 Y=1IGOSUB1B75B:RETURN 13888 Y1$¤"DUPLEXEH-CHECK"}REM****tX$77 13881 Y=12}GOSUB13388!Y2¤YLGUSU311?58:Y=X<1J:GD3UB18358lY=12IGG5UB13388